/BuildChar{^8 begin /Sg{/setgray load exec}B exch begin BC2 end end}B

/UCS{100 sub dup 100 ge{133 sub dup 0 ge{UVec exch get exec}{m17}ifelse}if}B

/Cache{NL 0 eq{setcachedevice/Sg{pop}FogStore}{6{pop}repeat}ifelse}B

/SetWid{NL 0 eq{0 setcharwidth/Sg{/setgray load exec}FogStore}{pop}ifelse}B

}B

/NL NL 1 sub FogStore

gsave NS_{Concat togNS_}if BC2 grestore

/NL NL 1 add FogStore

/ShowInt{

/m17{17 add NS_{2 exch exp 3 1 roll 100 mul add mul}{100 mul add}ifelse}B

/togNS_{/NS_ NS_ not FogStore}B